home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / amis / scripts / hunt.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-16  |  313 b   |  21 lines
  1. /* AMIS File hunter */
  2.  
  3. OPTIONS RESULTS
  4. /*address 'AMISPORT.1'*/
  5.  
  6. 'GetLine'
  7.  
  8. if(left(result,8)='#include') then
  9. do
  10.   PARSE VAR result . '<' File '>'
  11.   if(File="") then 
  12.   do
  13.     PARSE VAR result . '"' File '"'
  14.   end
  15.   File='Include:'||File
  16.   if(exists(File)) then
  17.   do
  18.     'File NAME="'||File||'" OPEN'
  19.   end
  20. end
  21.